home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2007 June
/
PCWorld_2007-06_cd.bin
/
zabezpeceni
/
pctools
/
avinstall.exe
/
{tmp}
/
shutdown.vbs
< prev
Wrap
Text File
|
2005-12-20
|
313b
|
14 lines
Sub ShutDown
nLogOff=0
nReboot=2
nForceLogOff=4
nForceReboot=6
nPowerDown=8
nForcePowerDown=12
Set oOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each oOperatingSystem in oOS
oOperatingSystem.Win32Shutdown(nForceReboot)
Next
End sub
ShutDown